home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 08 System Utilities / DOX.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  28 lines
  1. 10 POKE55,.:POKE56,160:CLR:SYS2862:I$="00":M$=CHR$(13):Q$=CHR$(34)
  2. 20 PRINT"[147][142]PRESS W TO WRITE FILE TO DISK."
  3. 35 PRINT"PRESS X TO EXIT."
  4. 40 GETA$:IFA$="W"THENPRINT"[147]":GOTO80
  5. 50 IFA$="X"THENEND
  6. 60 GOTO40
  7. 70 PRINT"[147]DEVICE";D;"[157] NOT PRESENT":CLOSE15
  8. 80 PRINT"ENTER DEVICE # OF DRIVE (4 TO 30)."
  9. 90 PRINT"(ENTER 0 TO EXIT.)"
  10. 100 PRINT"  8[145]":INPUTD:IFD=.THENEND
  11. 110 IFD<4ORD>30THENPRINT"[147]ILLEGAL DEVICE NUMBER":GOTO80
  12. 120 OPEN15,D,15:POKE183,1:POKE184,8:POKE185,8:POKE186,D:POKE187,96:POKE188,8
  13. 130 SYS65472:IF128ANDSTTHENCLOSE15:CLOSE8:GOTO70
  14. 140 FORI=1024TOI+20:POKEI,32:NEXT
  15. 145 PRINT#15,"U1";8;.;1;.:PRINT#15,"U2";8;.;1;.:CLOSE8
  16. 150 GOSUB500:PRINT"[147]":IFJ$=I$THEN170
  17. 160 CLOSE15:GOTO80
  18. 170 PRINT"ENTER A FILENAME."
  19. 180 F$="":INPUTF$:IFF$=""THEN600
  20. 190 OPEN8,D,1,F$:GOSUB500:IFJ$<>I$THENPRINT"[147]":CLOSE15:CLOSE8:GOTO80
  21. 200 PRINT"WRITING ";Q$;F$;Q$;"..."
  22. 210 CMD8,"";:FORI=2862TO3202:PRINTCHR$(PEEK(I));:NEXT:PRINT#8,"";:GOTO600
  23. 500 INPUT#15,J$,O$,H$,N$:IFJ$=I$THENRETURN
  24. 510 PRINT:PRINTJ$,O$:PRINT:PRINTH$,N$:PRINT"PRESS <RETURN>."
  25. 520 GETA$:IFA$=M$THENRETURN
  26. 530 GOTO520
  27. 600 CLOSE15:CLOSE8
  28.